|
68
|
I have a hierarchy and I need to filter only root items that match, with thier childs
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:FilterInclude := exRootsWithChilds
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilter
var_Column:Filter := "R1"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
|
|
66
|
I have a hierarchy and I need to filter only parent items that match, including thier childs
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:FilterInclude := exItemsWithChilds
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilter
var_Column:Filter := "R1"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
|
|
558
|
I do not like to specify the item padding for every column I add. The question is how can I do it automatically
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesVSolid
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Item")
var_Column := IColumn{var_Columns:Add("Pos")}
var_Column:Position := 0
var_Column:Width := 32
var_Column:AllowSizing := false
var_Column:FormatColumn := "1 index ``"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:EndUpdate()
|
|
472
|
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Style := DropDownList
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:AutoSearch := true
oDCOCX_Exontrol1:AutoDropDown := true
oDCOCX_Exontrol1:IntegralHeight := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}:AutoSearch := exContains
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("This is a bit of text")
var_Items:AddItem("This is a another text")
oDCOCX_Exontrol1:EndUpdate()
|
|
94
|
I can't scroll to the end of the data. What can I do
local var_Items,var_Items1,var_Items2,var_Items3 as IItems
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemHeight,var_Items:AddItem(0)] := 13
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[ItemHeight,var_Items1:AddItem(1)] := 26
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
var_Items2 := oDCOCX_Exontrol1:Items
var_Items2:[ItemHeight,var_Items2:AddItem(2)] := 36
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
var_Items3 := oDCOCX_Exontrol1:Items
var_Items3:[ItemHeight,var_Items3:AddItem(3)] := 48
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
|
|
469
|
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LabelHeight := 40
oDCOCX_Exontrol1:ScrollWidth := 0
oDCOCX_Exontrol1:ScrollHeight := 0
oDCOCX_Exontrol1:DropDownButtonWidth := 40
oDCOCX_Exontrol1:EndUpdate()
|
|
514
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
550
|
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it
local var_Items as IItems
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADODB.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Value := 10311
var_Items := oDCOCX_Exontrol1:Items
var_Items:EnsureVisibleItem(var_Items:FocusItem)
oDCOCX_Exontrol1:EndUpdate()
|
|
146
|
I've seen that you can change the visual appearance for the scroll bar. How can I do that
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(3,"c:\exontrol\images\hot.ebn")
oDCOCX_Exontrol1:[Background,exSBtn] := 0x1000000
oDCOCX_Exontrol1:[Background,exSBtnP] := 0x2000000
oDCOCX_Exontrol1:[Background,exSBtnH] := 0x3000000
oDCOCX_Exontrol1:[Background,exHSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exScrollHoverAll | exDateScrollThumb] := RGB(240,240,240)
IColumn{oDCOCX_Exontrol1:Columns:Add("S")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 1")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 2")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 3")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("E1")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("E2")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("E3")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("E4")}:Width := 32
oDCOCX_Exontrol1:ColumnAutoResize := false
|
|
119
|
I've seen that the width of the tooltip is variable. Can I make it larger
oDCOCX_Exontrol1:ToolTipWidth := 328
IColumn{oDCOCX_Exontrol1:Columns:Add("tootip")}:ToolTip := "this is a tooltip that should be very very very very very very very long"
|
|
2
|
I've added a single column, but it is displayed only on a part of the control. Is there something I can do so the column will be fully displayed on the control
oDCOCX_Exontrol1:Columns:Add("ColumnName")
oDCOCX_Exontrol1:Items:AddItem("Item 1")
oDCOCX_Exontrol1:Items:AddItem("Item 2")
|
|
473
|
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection
METHOD OCX_Exontrol1DropUp() CLASS MainDialog
// DropUp event - Occurs when the drop-down portion of the control is hidden.
oDCOCX_Exontrol1:Value := ""
RETURN NIL
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
OutputDebugString(String2Psz( "You selected: " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Value) ))
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Style := DropDownList
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:AutoSearch := true
oDCOCX_Exontrol1:AutoDropDown := true
oDCOCX_Exontrol1:IntegralHeight := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}:AutoSearch := exContains
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("This is a bit of text")
var_Items:AddItem("This is a another text")
var_Items:DefaultItem := var_Items:InsertItem(nil,nil,"")
var_Items:[ItemPosition,0] := 0
var_Items:[SortableItem,0] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
560
|
How I can programmatically select a row (with regular combobox I can set the ListIndex right up to Listcount -1)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:[SelectItem,var_Items:[ItemByIndex,1]] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
561
|
How I can programmatically select a row (method 2)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:Value := "Item 2"
oDCOCX_Exontrol1:EndUpdate()
|
|
88
|
How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns
local var_Items as IItems
oDCOCX_Exontrol1:CountLockedColumns := 1
oDCOCX_Exontrol1:BackColorLock := RGB(240,240,240)
oDCOCX_Exontrol1:ColumnAutoResize := false
IColumn{oDCOCX_Exontrol1:Columns:Add("Locked")}:Width := 128
IColumn{oDCOCX_Exontrol1:Columns:Add("Un-Locked 1")}:Width := 128
IColumn{oDCOCX_Exontrol1:Columns:Add("Un-Locked 2")}:Width := 128
IColumn{oDCOCX_Exontrol1:Columns:Add("Un-Locked 3")}:Width := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem("locked"),1] := "unlocked"
|
|
299
|
How do I vertically align a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:DrawGridLines := exRowLines
IColumn{oDCOCX_Exontrol1:Columns:Add("MultipleLine")}:[Def,exCellSingleLine] := false
oDCOCX_Exontrol1:Columns:Add("VAlign")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("This is a bit of long text that should break the line")
var_Items:[CellCaption,h,1] := "top"
var_Items:[CellVAlignment,h,1] := exTop
h := var_Items:AddItem("This is a bit of long text that should break the line")
var_Items:[CellCaption,h,1] := "middle"
var_Items:[CellVAlignment,h,1] := exMiddle
h := var_Items:AddItem("This is a bit of long text that should break the line")
var_Items:[CellCaption,h,1] := "bottom"
var_Items:[CellVAlignment,h,1] := exBottom
|
|
84
|
How do I use my own icons for my radio buttons
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:[RadioImage,false] := 1
oDCOCX_Exontrol1:[RadioImage,true] := 2
IColumn{oDCOCX_Exontrol1:Columns:Add("Radio")}:[Def,exCellHasRadioButton] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Radio 1")
var_Items:[CellState,var_Items:AddItem("Radio 2"),0] := 1
var_Items:AddItem("Radio 3")
|
|
83
|
How do I use my own icons for checkbox cells
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:[CheckImage,Unchecked] := 1
oDCOCX_Exontrol1:[CheckImage,Checked] := 2
IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}:[Def,exCellHasCheckBox] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Check 1")
var_Items:[CellState,var_Items:AddItem("Check 2"),0] := 1
|
|
479
|
How do I unselect/deselect the item (Simple style)
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Style := Simple
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:SearchColumnIndex := 0
oDCOCX_Exontrol1:Value := "Item 2"
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[SelectItem,var_Items1:FocusItem] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
478
|
How do I unselect/deselect the item (DropDownList style)
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Style := DropDown
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:SearchColumnIndex := 0
oDCOCX_Exontrol1:Value := "Item 2"
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[SelectItem,var_Items1:FocusItem] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
477
|
How do I unselect/deselect the item (DropDown style)
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Style := DropDown
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:SearchColumnIndex := 0
oDCOCX_Exontrol1:Value := "Item 2"
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[SelectItem,var_Items1:FocusItem] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
288
|
How do I unselect an item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[SelectItem,h] := false
|
|
155
|
How do I underline the numbers greater than a value
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 >= 10",nil):Underline := true
oDCOCX_Exontrol1:Columns:Add("Numbers")
oDCOCX_Exontrol1:Items:AddItem(1)
oDCOCX_Exontrol1:Items:AddItem(2)
oDCOCX_Exontrol1:Items:AddItem(10)
oDCOCX_Exontrol1:Items:AddItem(20)
|
|
244
|
How do I underline an item
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemUnderline,var_Items:AddItem("underline")] := true
|
|
245
|
How do I underline a cell or an item
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaptionFormat,var_Items:AddItem("gets <u>underline</u> only a portion of text"),0] := exHTML
|
|
246
|
How do I underline a cell
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellUnderline,var_Items:AddItem("underline"),0] := true
|
|
325
|
How do I turn off the auto complete feature
local var_Items as IItems
oDCOCX_Exontrol1:AutoComplete := false
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
328
|
How do I specify the width of the drop down window
local var_Items as IItems
oDCOCX_Exontrol1:[WidthList,nil] := 100
oDCOCX_Exontrol1:AllowSizeGrip := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
327
|
How do I specify the minimum width of the drop down window
local var_Items as IItems
oDCOCX_Exontrol1:MinWidthList := 100
oDCOCX_Exontrol1:AllowSizeGrip := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
329
|
How do I specify the minimum height of the drop down window
local var_Items as IItems
oDCOCX_Exontrol1:MinHeightList := 100
oDCOCX_Exontrol1:AllowSizeGrip := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
92
|
How do I specify the indentation of the child items relative to their parents
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:Indent := 11
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child")
|
|
330
|
How do I specify the height of the drop down window
local var_Items as IItems
oDCOCX_Exontrol1:[HeightList,nil] := 400
oDCOCX_Exontrol1:MinWidthList := 100
oDCOCX_Exontrol1:AllowSizeGrip := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
338
|
How do I specify the height of the control's label
local var_Items as IItems
oDCOCX_Exontrol1:LabelHeight := 34
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
93
|
How do I specify the column where the tree lines / hierarchy are shown
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Columns:Add("Column 1")
oDCOCX_Exontrol1:Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1.1")
var_Items:[CellCaption,h,1] := "Root 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2.1"),1] := "Child 2.2"
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2.1")
var_Items:[CellCaption,h,1] := "Root 2.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
|
|
483
|
How do I sort the index column as numeric
METHOD OCX_Exontrol1InsertItem(Item) CLASS MainDialog
// InsertItem event - Occurs after a new item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellData,Item,1] := var_Items:[ItemToIndex,Item]
RETURN NIL
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SingleEdit := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Next")}
var_Column:[Def,exCellPaddingLeft] := 4
var_Column:[Def,exHeaderPaddingLeft] := 4
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Index")}
var_Column1:AllowSizing := false
var_Column1:Width := 48
var_Column1:FormatColumn := "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
var_Column1:[Def,exCellCaptionFormat] := 1
var_Column1:SortType := SortUserData
var_Column1:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 4")
var_Items:AddItem("Item 5")
var_Items:AddItem("Item 6")
var_Items:AddItem("Item 7")
var_Items:AddItem("Item 8")
var_Items:AddItem("Item 9")
var_Items:AddItem("Item 10")
oDCOCX_Exontrol1:EndUpdate()
|
|
229
|
How do I sort the child items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:SortChildren(h,0,false)
|
|
79
|
How do I sort descending a column, and put the sorting icon in the column's header
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortDescending
|
|
78
|
How do I sort ascending a column, and put the sorting icon in the column's header
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
|
|
72
|
How do I sort a column by numbers
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("desc")}:SortType := SortNumeric
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1)
var_Items:AddItem(5)
var_Items:AddItem(10)
var_Items:SortChildren(0,0,false)
|
|
116
|
How do I show the tooltip quicker
oDCOCX_Exontrol1:ToolTipDelay := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("tootip")}:ToolTip := "this is a tooltip assigned to a column"
|
|
181
|
How do I show or hide the sorting icons, but still need sorting
IColumn{oDCOCX_Exontrol1:Columns:Add("Sorted")}:SortOrder := SortAscending
oDCOCX_Exontrol1:Columns:[Item,0]:DisplaySortIcon := false
|
|
194
|
How do I show buttons for all cells in the column
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Button")}
var_Column:[Def,exCellHasButton] := true
var_Column:[Def,exCellButtonAutoWidth] := true
oDCOCX_Exontrol1:Items:AddItem(" Button 1 ")
oDCOCX_Exontrol1:Items:AddItem(" Button 2 ")
|
|
193
|
How do I show buttons for all cells in the column
IColumn{oDCOCX_Exontrol1:Columns:Add("Button")}:[Def,exCellHasButton] := true
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
|
|
109
|
How do I show alternate rows in different background color
local var_Items as IItems
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 4")
var_Items:AddItem("Item 5")
|
|
559
|
How do I set an extra data for each item
METHOD OCX_Exontrol1MouseMove(Button, Shift, X, Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local i as USUAL
i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( AsString(i) ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemData,i]) ))
RETURN NIL
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemData,var_Items:AddItem("method 1")] := "your extra data of method 1"
var_Items:InsertItem(0,"your extra data of method 2","method 2")
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:DefaultItem := var_Items1:AddItem("method 3")
var_Items1:[ItemData,0] := "your extra data of method 3"
oDCOCX_Exontrol1:EndUpdate()
|
|
286
|
How do I select an item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[SelectItem,h] := true
|
|
347
|
How do I select a value
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:IntegralHeight := true
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Columns:Add("Column 1")
oDCOCX_Exontrol1:Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1.1")
var_Items:[CellCaption,h,1] := "Root 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2.1"),1] := "Child 2.2"
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2.1")
var_Items:[CellCaption,h,1] := "Root 2.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
oDCOCX_Exontrol1:[Select,1] := "Root 1.2"
|
|
348
|
How do I select a value
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:IntegralHeight := true
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Columns:Add("Column 1")
oDCOCX_Exontrol1:Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1.1")
var_Items:[CellCaption,h,1] := "Root 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2.1"),1] := "Child 2.2"
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2.1")
var_Items:[CellCaption,h,1] := "Root 2.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
oDCOCX_Exontrol1:Value := "Root 1.1"
|
|
466
|
How do I select a NULL/empty value
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Style := DropDownList
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 4")
var_Items:DefaultItem := var_Items:InsertItem(nil,nil,"")
var_Items:[ItemPosition,0] := 0
var_Items:[SortableItem,0] := false
oDCOCX_Exontrol1:Value := ""
oDCOCX_Exontrol1:EndUpdate()
|
|
114
|
How do I search case sensitive, using your incremental search feature
local var_Columns as IColumns
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:AutoSearch := true
oDCOCX_Exontrol1:ASCIILower := ""
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("exStartWith")}:AutoSearch := exStartWith
IColumn{var_Columns:Add("exContains")}:AutoSearch := exContains
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem("text"),1] := "another text"
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[CellCaption,var_Items1:AddItem("text"),1] := "another text"
|
|
262
|
How do I retrieve the focused item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,var_Items:FocusItem] := true
|
|
345
|
How do I remove the drop down's border
oDCOCX_Exontrol1:DropDownBorder := None2
|
|
69
|
How do I remove the control's border
oDCOCX_Exontrol1:Appearance := None2
|
|
451
|
How do I prevent scrolling the control's data after user does the sort
local var_Items as IItems
oDCOCX_Exontrol1:EnsureOnSort := false
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
|
|
585
|
How do I prevent changing the cell's state ( check-box state )
METHOD OCX_Exontrol1CellStateChanging(Cell, NewState) CLASS MainDialog
// CellStateChanging event - Fired before cell's state is about to be changed.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
NewState := var_Items:[CellState,nil,Cell]
RETURN NIL
local var_Column,var_Column1 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("P2")}
var_Column1:[Def,exCellHasCheckBox] := true
var_Column1:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
77
|
How do I perform my own/custom sort, using my extra strings
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("desc")}:SortType := SortUserData
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellData,var_Items:AddItem("A"),0] := "C"
var_Items:[CellData,var_Items:AddItem("B"),0] := "B"
var_Items:[CellData,var_Items:AddItem("C"),0] := "A"
var_Items:SortChildren(0,0,false)
|
|
76
|
How do I perform my own/custom sort, using my extra numbers
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("desc")}:SortType := SortUserData
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellData,var_Items:AddItem(0),0] := 2
var_Items:[CellData,var_Items:AddItem(1),0] := 1
var_Items:[CellData,var_Items:AddItem(2),0] := 0
var_Items:SortChildren(0,0,false)
|
|
82
|
How do I perform my own sorting when user clicks the column's header
oDCOCX_Exontrol1:SortOnClick := exUserSort
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Items:AddItem("Item 1")
oDCOCX_Exontrol1:Items:AddItem("Item 2")
|
|
334
|
How do I lock or make read-only the control
local var_Items as IItems
oDCOCX_Exontrol1:Locked := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
331
|
How do I let user to resize the drop down window, at runtime
local var_Items as IItems
oDCOCX_Exontrol1:AllowSizeGrip := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
332
|
How do I let user to resize only the width of the drop down window, at runtime
local var_Items as IItems
oDCOCX_Exontrol1:AllowSizeGrip := true
oDCOCX_Exontrol1:AllowVResize := false
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
333
|
How do I let user to resize only the height of the drop down window, at runtime
local var_Items as IItems
oDCOCX_Exontrol1:AllowSizeGrip := true
oDCOCX_Exontrol1:AllowHResize := false
oDCOCX_Exontrol1:MinWidthList := 100
oDCOCX_Exontrol1:MinHeightList := 100
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
|
|
117
|
How do I let the tooltip being displayed longer
oDCOCX_Exontrol1:ToolTipPopDelay := 10000
IColumn{oDCOCX_Exontrol1:Columns:Add("tootip")}:ToolTip := "this is a tooltip assigned to a column"
|
|
153
|
How do I highlight in italic the numbers greater than a value
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 >= 10",nil):Italic := true
oDCOCX_Exontrol1:Columns:Add("Numbers")
oDCOCX_Exontrol1:Items:AddItem(1)
oDCOCX_Exontrol1:Items:AddItem(2)
oDCOCX_Exontrol1:Items:AddItem(10)
oDCOCX_Exontrol1:Items:AddItem(20)
|
|
154
|
How do I highlight in italic the numbers greater than a value
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 >= 10",nil):StrikeOut := true
oDCOCX_Exontrol1:Columns:Add("Numbers")
oDCOCX_Exontrol1:Items:AddItem(1)
oDCOCX_Exontrol1:Items:AddItem(2)
oDCOCX_Exontrol1:Items:AddItem(10)
oDCOCX_Exontrol1:Items:AddItem(20)
|
|
152
|
How do I highlight in bold the numbers greater than a value
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 >= 10",nil):Bold := true
oDCOCX_Exontrol1:Columns:Add("Numbers")
oDCOCX_Exontrol1:Items:AddItem(1)
oDCOCX_Exontrol1:Items:AddItem(2)
oDCOCX_Exontrol1:Items:AddItem(10)
oDCOCX_Exontrol1:Items:AddItem(20)
|
|
71
|
How do I hide the control's header bar
oDCOCX_Exontrol1:HeaderVisible := false
|
|
258
|
How do I get the parent item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,var_Items:[ItemParent,var_Items:[ItemChild,h]]] := true
|
|
232
|
How do I get the number or count of items
local var_Items,var_Items1 as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:AddItem(var_Items1:ItemCount)
|
|
261
|
How do I get the number or count of child items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:AddItem(var_Items:[ChildCount,h])
|
|
339
|
How do I get the handle of the drop down window
oDCOCX_Exontrol1:Columns:Add(AsString(oDCOCX_Exontrol1:hWndDropDown))
|
|
263
|
How do I get the handle of the cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[CellBold,nil,var_Items:[ItemCell,h,0]] := true
|
|
257
|
How do I get the first child item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,var_Items:[ItemChild,h]] := true
|
|
486
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exShowCheckBox | exSortItemsDesc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("DateTime")}
var_Column1:SortType := SortDateTime
var_Column1:DisplayFilterButton := true
var_Column1:DisplayFilterPattern := false
var_Column1:FilterList := exShowFocusItem | exShowCheckBox | exSortItemsDesc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Time")}
var_Column2:SortType := SortTime
var_Column2:DisplayFilterButton := true
var_Column2:DisplayFilterPattern := false
var_Column2:FilterList := exShowFocusItem | exShowCheckBox | exSortItemsDesc
var_Column2:FormatColumn := "time(value)"
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Numeric")}
var_Column3:SortType := SortNumeric
var_Column3:DisplayFilterButton := true
var_Column3:FilterList := exShowFocusItem | exShowCheckBox | exSortItemsDesc
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("String")}
var_Column4:DisplayFilterButton := true
var_Column4:FilterList := exShowFocusItem | exShowCheckBox | exSortItemsDesc
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20100127"))
var_Items:[CellCaption,h,1] := SToD("20100127 10:00:00")
var_Items:[CellCaption,h,2] := var_Items:[CellCaption,h,1]
var_Items:[CellCaption,h,3] := 1
var_Items:[CellCaption,h,4] := var_Items:[CellCaption,h,3]
h := var_Items:AddItem(SToD("20110127"))
var_Items:[CellCaption,h,1] := SToD("20110127 09:00:00")
var_Items:[CellCaption,h,2] := var_Items:[CellCaption,h,1]
var_Items:[CellCaption,h,3] := 11
var_Items:[CellCaption,h,4] := var_Items:[CellCaption,h,3]
h := var_Items:AddItem(SToD("20101102"))
var_Items:[CellCaption,h,1] := SToD("20101102 09:00:00")
var_Items:[CellCaption,h,2] := var_Items:[CellCaption,h,1]
var_Items:[CellCaption,h,3] := 2
var_Items:[CellCaption,h,4] := var_Items:[CellCaption,h,3]
oDCOCX_Exontrol1:Columns:[Item,"DateTime"]:DisplayFilterDate := false
oDCOCX_Exontrol1:EndUpdate()
|
|
96
|
How do I get ride of the rectangle arround focused item
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
|
|
470
|
How do I get notified once the user changes the Filter For field
METHOD OCX_Exontrol1EditChange(ColIndex) CLASS MainDialog
// EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
OutputDebugString(String2Psz( "ColIndex: " ))
OutputDebugString(String2Psz( AsString(ColIndex) ))
OutputDebugString(String2Psz( "Label: " ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[EditText,0] ))
OutputDebugString(String2Psz( "FilterFor: " ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[EditText,-1] ))
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FilterForVisible := true
oDCOCX_Exontrol1:FilterForBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:IntegralHeight := true
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 4")
var_Items:AddItem("Item 5")
oDCOCX_Exontrol1:EndUpdate()
|
|
547
|
How do I get a list of interfaces the object implemenets
local rs as Recordset2
local var_PrivDBEngine as _DBEngine
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft Office 15.0 Access database engine Object Library(ACEDAO.DLL)' server from Tools\Automation Server...
var_PrivDBEngine := _DBEngine{"DAO.DBEngine.120"}
rs := Recordset2{var_PrivDBEngine:OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",nil,nil,nil):OpenRecordset("Orders",nil,nil,nil)}
// Generate Source for 'ExPropertiesList 1.0 Control Library(ExPropertiesList.dll)' server from Tools\Automation Server...
OutputDebugString(String2Psz( IPropertiesList{"Exontrol.PropertiesList"}:[Interfaces,rs] ))
oDCOCX_Exontrol1:DataSource := Recordset2{rs}
oDCOCX_Exontrol1:Value := 10248
oDCOCX_Exontrol1:EndUpdate()
|
|
287
|
How do I find the selected item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[SelectItem,h] := true
var_Items:[ItemBold,var_Items:[SelectedItem,0]] := true
|
|
294
|
How do I find the index of the item based on its handle
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,var_Items:[ItemByIndex,var_Items:[ItemToIndex,h]]] := true
|
|
293
|
How do I find the handle of the item based on its index
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,var_Items:[ItemByIndex,1]] := true
|
|
297
|
How do I find an item based on a path
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:[ItemData,var_Items:InsertItem(h,nil,"Child 2")] := 1234
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,var_Items:[FindPath,"Root 1\Child 1"]] := true
|
|
296
|
How do I find an item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,var_Items:[FindItem,"Child 2",0,nil]] := true
|
|
107
|
How do I filter programatically the control
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exPattern
var_Column:Filter := "Item*"
oDCOCX_Exontrol1:Items:AddItem("Item 1")
oDCOCX_Exontrol1:Items:AddItem("")
oDCOCX_Exontrol1:Items:AddItem("Item 2")
oDCOCX_Exontrol1:ApplyFilter()
|
|
63
|
How do I filter for items that match exactly the specified string
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilter
var_Column:Filter := "Item 1"
oDCOCX_Exontrol1:Items:AddItem("Item 1")
oDCOCX_Exontrol1:Items:AddItem("Item 2")
oDCOCX_Exontrol1:Items:AddItem("Item 3")
oDCOCX_Exontrol1:ApplyFilter()
|
|
234
|
How do I expand or collapse an item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
|
|
123
|
How do I expand automatically the items while user types characters to searching for something ( incremental searching )
local var_Items as IItems
oDCOCX_Exontrol1:ExpandOnSearch := true
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:AutoSearch := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:AutoSearch := exContains
var_Items := oDCOCX_Exontrol1:Items
var_Items:InsertItem(var_Items:InsertItem(var_Items:AddItem("text"),nil,"some text"),nil,"another text")
var_Items:InsertItem(var_Items:InsertItem(var_Items:AddItem("text"),nil,"some text"),nil,"another text")
|
|
260
|
How do I enumerate the visible items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:[ItemBold,var_Items:FirstVisibleItem] := true
var_Items:[ItemBold,var_Items:[NextVisibleItem,var_Items:FirstVisibleItem]] := true
|
|
259
|
How do I enumerate the siblings items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:[ItemBold,var_Items:[NextSiblingItem,var_Items:FirstVisibleItem]] := true
var_Items:[ItemBold,var_Items:[PrevSiblingItem,var_Items:[NextSiblingItem,var_Items:FirstVisibleItem]]] := true
|
|
256
|
How do I enumerate the root items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ItemBold,var_Items:[RootItem,0]] := true
var_Items:[ItemUnderline,var_Items:[RootItem,1]] := true
|
|
40
|
How do I ensure that the focused item is visible, after the user does the sort
local var_Items as IItems
oDCOCX_Exontrol1:EnsureOnSort := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(0),nil)
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
|
|
108
|
How do I enlarge the drop down filter window
local var_Column as IColumn
oDCOCX_Exontrol1:FilterBarDropDownHeight := "-320"
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterBarDropDownWidth := "-320"
oDCOCX_Exontrol1:Items:AddItem("Item 1")
oDCOCX_Exontrol1:Items:AddItem("Item 2")
|
|
165
|
How do I enlarge or change the size of the control's scrollbars
oDCOCX_Exontrol1:ScrollHeight := 18
oDCOCX_Exontrol1:ScrollWidth := 18
oDCOCX_Exontrol1:ScrollButtonWidth := 18
oDCOCX_Exontrol1:ScrollButtonHeight := 18
|
|
112
|
How do I enable the incremental search feature within a column
local var_Columns as IColumns
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:AutoSearch := true
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("exStartWith")}:AutoSearch := exStartWith
IColumn{var_Columns:Add("exContains")}:AutoSearch := exContains
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem("text"),1] := "another text"
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[CellCaption,var_Items1:AddItem("text"),1] := "another text"
|
|
138
|
How do I enable resizing the columns at runtime
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:ColumnsAllowSizing := true
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:Columns:Add("Column 1")
oDCOCX_Exontrol1:Columns:Add("Column 2")
oDCOCX_Exontrol1:DrawGridLines := exVLines
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem("Item 1"),1] := "Sub Item 1"
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[CellCaption,var_Items1:AddItem("Item 2"),1] := "Sub Item 2"
|
|
351
|
How do I enable resizing all the items at runtime
local var_Items as IItems
oDCOCX_Exontrol1:ItemsAllowSizing := exResizeAllItems
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Items:AddItem("Item 1")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemHeight,var_Items:AddItem("Item 2")] := 48
oDCOCX_Exontrol1:Items:AddItem("Item 3")
|
|
137
|
How do I enable resizing ( changing the height ) the items at runtime
local var_Items as IItems
oDCOCX_Exontrol1:ItemsAllowSizing := exResizeItem
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Items:AddItem("Item 1")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemHeight,var_Items:AddItem("Item 2")] := 48
oDCOCX_Exontrol1:Items:AddItem("Item 3")
|
|
180
|
How do I enable or disable the entire column
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:Columns:Add("C1")
IColumn{oDCOCX_Exontrol1:Columns:Add("Disabled")}:Enabled := false
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(0),1] := "0.1"
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[CellCaption,var_Items1:AddItem(1),1] := "1.1"
|
|
268
|
How do I enable or disable a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "Cell 2"
var_Items:[CellEnabled,h,1] := false
|
|
553
|
How do I display the position of the item with 0-padding
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}:FormatColumn := "((1 apos ``) lpad `00`) + `. ` + value"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
var_Items:AddItem("Item D")
oDCOCX_Exontrol1:EndUpdate()
|
|
349
|
How do I display the icons being selected in the control's label
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellImage,var_Items:AddItem("Image 1"),0] := 1
var_Items:[CellImage,var_Items:AddItem("Image 2"),0] := 2
var_Items:[CellImage,var_Items:AddItem("Image 3"),0] := 3
oDCOCX_Exontrol1:[AssignEditImageOnSelect,0] := true
oDCOCX_Exontrol1:Value := "Image 2"
|